dim doc
set doc = Application.ActiveDocument
dim objs,obj
dim attrs,attr
dim ncount
ncount = 0
dim isFound
set objs = doc.GetObjects(1,, false) 
for each obj in objs
	isFound = false
	for each label in obj.labels
		if label.LabelType = 0 then
			isFound = true
		end if
	next
	if isFound=false then
		ncount= ncount+1
		obj.Selected =true
	end if
next
msgbox ncount